home *** CD-ROM | disk | FTP | other *** search
/ PD Collection CD 1 / PD Collection CD 1.iso / demos / pms / Scores / Samp09 < prev    next >
Text File  |  1993-06-20  |  3KB  |  130 lines
  1. @ Sample for Computing in Musicology 1993
  2. @ Philip Hazel, June 1993
  3.  
  4. draw blip
  5.   linegapx linegapy moveto
  6.   0 linegapx 3 mul lineto
  7.   linegapx neg linegapy neg lineto
  8.   0.3 setlinewidth stroke
  9. enddraw  
  10.  
  11. draw ped
  12.   0 0 moveto "\**163\ "show
  13. enddraw  
  14.  
  15. draw flutter
  16.   linegapx neg 1 sub -3.1 moveto "\mf\`````````````````````````" show
  17.   linegapx neg 4 add 3 moveto "\it\(flutter)"/s3 show
  18. enddraw  
  19.  
  20. draw star
  21.   linegapx neg 3 add 0 moveto "\**36\"/s5 show
  22. enddraw  
  23.  
  24. draw pog
  25.   1 stemtop 10 sub moveto 6 4 rlineto
  26.   0.2 setlinewidth stroke
  27. enddraw  
  28.  
  29. draw three
  30.   0 -3 moveto "\it\3"/s6/c show
  31. enddraw  
  32.  
  33. *define sa  slur/a0/rr12
  34. *define sa2 slur/a0/lr3/rr12
  35. *define sb  slur/b0/rr16/lr4
  36.  
  37. *define b1 [linegap/=L/draw blip]
  38. *define b2 [linegap/=L/w2.5/draw blip]
  39. *define b3 [linegap/=L/w100/r4/draw flutter]
  40.  
  41. *define star [linegap/=L/draw star]
  42.  
  43. *define va8 "\it\8va-"/ol/u17/l8/s3/" -| \**159\"
  44.  
  45. Heading 16 "|#2. David Chaitkin" 18
  46. Heading 16 "|Prelude" 70
  47.  
  48. linelength 480
  49.  
  50. justify top left right
  51. startnotime
  52. unfinished
  53.  
  54. stavespacing 1/0 2/50
  55. systemgap 100
  56. barnumbers line 9 italic
  57. bar 27
  58. bracket
  59. brace 1-3
  60.  
  61. textsizes 10 12 7 9 7 8
  62. clefsize 0.8
  63. tripletfont 8 italic
  64.  
  65.  
  66.  
  67. [stave 1 treble 1 stems up]
  68. [slur/a/ll20/ru8] (d''\.!\d''')[&sa/u1 &sa/u14](#f'\.!\#f'') [es es es] Q | @27
  69. {/a r\l16\ [slur/a/u8/ci4 space 4] (#F'\!.\#F'') } (d''\!.\d''')
  70. [&sa/u1 &sa/u14](#f'\!.\#f'') [es es es] | @28
  71. Q [space 2] r. [move -5] "\it\s\bi\ff"/s2/b10/l8
  72. "\it\8va - - \**159\"/a/s3 [slur/b/lu2/ru12] [draw pog] (a'-\g\a''-\g\) 
  73. [space 4 &sa/u14] d''-\sd\ [es es] 
  74. [space 2] | @29
  75.  
  76. Rr. [&sa2 &sb/d4] "\it\s\bi\f"/b/s2/u4(d-\sd >/u2\e'-) [es es space 2] | @30
  77. [stems auto]
  78. r-; "\it\s\bi\f"/b/s2/l4 [slur/b/ru8] &va8 
  79. [move -4] [draw pog] (a'-\g/\a''-\g\) [xslur/a/ru2/rl1/lu1/ci1/cll2] d'' [es &sa/u2] 
  80. "#"/ol/r8 e'- [es es] 
  81. "\bi\allarg."/a8 R | @31
  82. R! | @32
  83. "\bi\p"/s2/a/u6
  84. "\bf\A tempo"/a/d2
  85. {/a r "\it\cantabile"/a/s4/u4/r8 [slur/a/lu16/ll8/ru10/ci2] #ce} {/b a#f'g'} | @33
  86. [line/a/u4 linegap/h/w6/draw three] 
  87. {/a/x e'\su\g#f} [es] {/a eag} [es] [reset] C+ | @34
  88. [endstave]
  89.  
  90.  
  91. [stave 2 treble 1 stems down rlevel -4]
  92. r. q- (g.d'.) q- | @27
  93. [&sb/u2 &sb/u10] (gd') [es es] rr.q- | @28
  94. (g.d'.) q-Q | @29
  95. [endstave] 
  96.  
  97.  
  98. [stave 3 treble 1]
  99. Qqq-r-\l-16\ [reset]
  100. [line/=L/b/h/ol/ll40/d5/rd4]
  101. q. [slur/a/ll8/ru4/rl2/co30/clu40/cll10/crl15] (#f-b-) r 
  102. [bass 0] </a/u4/r6 "\bi\pp"/b14/s2/l16 
  103. &b1 [&sb/u2 &sb/d5] (e`-\.! sd\b`-); [es es] 
  104. [space 4 treble 1] [&sa/d7 &sa/d11] (#f-b-) [es es es] [space 4] </r2 | @27
  105.  
  106. Qq. [slur/a/ll8/ru4/rl2/co30/clu40/crl10] (#f-b-) | @28
  107.  
  108. qq-r-\l-16\ [reset]
  109. "\it\m\bi\p"/a/s2/u10/l4 >/a/r15/u5
  110. "\it\(\bi\pp\it\)"/b/r4/d8/s2
  111. r [bass 0] &b1 [&sb/d2 &sb/d10] (c`-\!. sd\g`-); [es es]
  112. [treble 1] [&sa/d11 &sa/d6] (#f-b-) >/l12 [es es es] r. 
  113. [slur/b/lu2/ru8] [draw pog] (d'-\g/\d''-\g\) [&sa/u4] #f'- [es es] | @29
  114.  
  115. r- [bass 0] "\it\m\bi\f"/s2/a/e/l4 b._b- &b2 c' &b1 ($b`-c'-) 
  116. [reset] Qq. [notes off] ($b`-\ar\e''-\c\) [notes on] | @30
  117.  
  118. r- [treble 1 slur/b/lu2/ru8] [draw pog] (d'-\g/\d''-\g\)%f' [es slur/a/ru12] &b2 g'-_;g'-
  119. "\it\dim.-"/ol/u14/"   -" c' &b2 f-_ | @31
  120.  
  121. f-ed-_{/a &b3 d "#"/ol/l4 "\bi\p"/a/u15 >/a/u13/r10 ga`} [es] [bass 0] >/d16/r16 | @32
  122.  
  123. &star B+ [el] [reset] 
  124. {/b/u4 r\l-8\ [line/=L/ol/h/b/d5 linegap/w36/l4/draw ped] G`\sd sl-3\}_/bG`\sd sl-3\ | @33
  125.  
  126. [notes off] ($a`\ar\e''\c\) [notes on reset]
  127. (A`+$B+) [reset]
  128. &b1 {/x q &b2 q &b2 q} &star Q [el] |
  129. [endstave]
  130.